atom <- function(){
	return(100)
}

molecule <- function(x,y){
	x[,2] <- x[,2] *y
	return(x)
}

chemical <- function(a,b){
	return(a+b)
}
